{
Traviesadora beta 0.2.0.13.33 (30.11.2008)
LastMod: 01.12.2008 by Prof1983

Copyright 2008, travieorama@googlemail.com

This file is part of the taviesadora project

taviesadora is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

taviesadora is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
}
unit InfoWin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Service;

type
  TfrmInfo = class(TForm)
    lblName: TLabel;
    lblVersion: TLabel;
    bntOK: TButton;
    lblemail: TLabel;
    Label1: TLabel;
    Memo1: TMemo;
    lblDate: TLabel;
    lblURL: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bntOKClick(Sender: TObject);
  end;

var
  frmInfo: TfrmInfo;

implementation

{$R *.dfm}

{ TfrmInfo }

procedure TfrmInfo.FormCreate(Sender: TObject);
begin
  //GetAppVersionInfo(Application.ExeName);
  lblVersion.Caption := 'Version: '+GetMyAppVersionString;
  lblDate.Caption := 'Build-date:'+REV_NOW+'  Revision-date:'+REV_DATE;
  lblURL.Caption := 'Repository-URL:'+REV_URL;
end;

procedure TfrmInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmInfo.bntOKClick(Sender: TObject);
begin
  Close;
end;

end.
